Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/WIN_VB/STMOUS.ZIP;1/GENERAPP.FRM

Visual Basic Form | 1993-10-12 | 9.7 KB | 279 lines

VERSION 2.00
Begin Form Balloon_Form
   Caption         =   "STMOUSE Help"
   ClientHeight    =   5325
   ClientLeft      =   1140
   ClientTop       =   1035
   ClientWidth     =   5085
   ClipControls    =   0   'False
   Height          =   6015
   Left            =   1080
   LinkTopic       =   "Form1"
   ScaleHeight     =   5325
   ScaleWidth      =   5085
   Top             =   405
   Width           =   5205
   Begin StMouse StMouse1
      Left            =   2400
      Top             =   3480
   End
   Begin CommandButton BTN_STMouseStop
      Caption         =   "Stop STM"
      Height          =   375
      Left            =   1920
      TabIndex        =   15
      Top             =   720
      Width           =   1215
   End
   Begin CommandButton BTN_STMouseStart
      Caption         =   "Start STM"
      Height          =   375
      Left            =   240
      TabIndex        =   14
      Top             =   720
      Width           =   1215
   End
   Begin ComboBox Combo1
      Height          =   300
      Left            =   240
      TabIndex        =   13
      Text            =   "Combo1"
      Top             =   2880
      Width           =   2175
   End
   Begin OptionButton Option3
      Caption         =   "Maybe option"
      Height          =   255
      Left            =   1200
      TabIndex        =   12
      Top             =   4320
      Width           =   1575
   End
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      ClipControls    =   0   'False
      Height          =   360
      Left            =   360
      Picture         =   GENERAPP.FRX:0000
      ScaleHeight     =   330
      ScaleWidth      =   360
      TabIndex        =   11
      Top             =   3600
      Width           =   390
   End
   Begin CheckBox Check2
      Caption         =   "That"
      Height          =   255
      Left            =   1200
      TabIndex        =   10
      Top             =   3840
      Width           =   1200
   End
   Begin CheckBox Check1
      Caption         =   "This"
      Height          =   255
      Left            =   1200
      TabIndex        =   9
      Top             =   3360
      Width           =   1200
   End
   Begin Frame Frame1
      Caption         =   "Do it now"
      Height          =   1215
      Left            =   3000
      TabIndex        =   6
      Top             =   3120
      Width           =   1695
      Begin OptionButton Option2
         Caption         =   "No"
         Height          =   255
         Left            =   240
         TabIndex        =   8
         Top             =   720
         Width           =   1000
      End
      Begin OptionButton Option1
         Caption         =   "Yes"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   360
         Width           =   1000
      End
   End
   Begin TextBox TXT_Result
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Text            =   "Status output"
      Top             =   4800
      Width           =   4815
   End
   Begin TextBox TXT_KeyString
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Text            =   "This is a popup message to display in the window. The message can be of long length, or it can be short."
      Top             =   1560
      Width           =   4815
   End
   Begin CommandButton BTN_Exit
      Caption         =   "Exit"
      Height          =   375
      Left            =   3600
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin TextBox TXT_SearchString
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Text            =   "Dawg"
      Top             =   2280
      Width           =   4815
   End
   Begin Label Label2
      Alignment       =   2  'Center
      Caption         =   "Click ""Start STM"" and move mouse over a control to display the status line help text for."
      Height          =   375
      Left            =   240
      TabIndex        =   16
      Top             =   120
      Width           =   4575
   End
   Begin Label Label3
      Alignment       =   2  'Center
      Caption         =   "Search String"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   2040
      Width           =   4815
   End
   Begin Label Label1
      Alignment       =   2  'Center
      Caption         =   "Key String"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1320
      Width           =   4815
   End
   Begin Menu nmu_File
      Caption         =   "&File"
      Begin Menu mnu_Exit
         Caption         =   "&Exit"
      End
   End
   Begin Menu mnu_Edit
      Caption         =   "&Edit"
      Begin Menu mnu_Cut
         Caption         =   "Cu&t"
      End
      Begin Menu mnu_Copy
         Caption         =   "&Copy"
      End
      Begin Menu mnu_Paste
         Caption         =   "&Paste"
      End
      Begin Menu mnu_submenu
         Caption         =   "SubMenu"
         Begin Menu mnu_submenu1
            Caption         =   "SubMenu 1"
         End
         Begin Menu mnu_submenu2
            Caption         =   "SubMenu 2"
         End
      End
   End
   Begin Menu mnu_help
      Caption         =   "&Help"
      Begin Menu mnu_HelpBalloons
         Caption         =   "Help &Balloons"
      End
   End
Option Explicit
' Declare statements for utility functions included in STMOUSE.VBX
Declare Function Hwnd2ControlTabIndex Lib "STMOUSE.VBX" (ByVal hwndControl%) As Integer
Declare Function Hwnd2CtlName Lib "STMOUSE.VBX" (ByVal hwndControl%) As String
Declare Function Hwnd2HelpContextID Lib "STMOUSE.VBX" (ByVal hwndControl%) As Long
Declare Function Hwnd2TagText Lib "STMOUSE.VBX" (ByVal hwndControl%) As String
Sub BTN_Exit_Click ()
    mnu_Exit_Click
End Sub
Sub BTN_STMouseStart_Click ()
    STMouse1.Action = 60 'start
End Sub
Sub BTN_STMouseStop_Click ()
    STMouse1.Action = 61 ' stop
End Sub
Sub Form_Resize ()
    If Me.WindowState = 0 Then
        Me.Height = 6015
        Me.Width = 5175
    End If
    Me.Top = 0
    Me.Left = 0
End Sub
Sub mnu_Exit_Click ()
    End
End Sub
Sub mnu_HelpBalloons_Click ()
    ' initial help text string
    ' here we get the text from the on screen text box
    '
    ' Initial text can be left blank, if blank then
    ' Balloon.vbx control will display an internal init message
    TXT_Result.Text = TXT_KeyString.Text
    STMouse1.Action = 20     ' Balloon_START = 20
End Sub
Sub StMouse1_StMouseClick (hwndAtMouse As Integer)
' PURPOSE:  hwndAtMouse is the control the mouse is over
' COMMENTS: pass back the help text
'           shows how to programmatcially end a session
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Msg As String
Dim CRLF As String
    CRLF = Chr$(13) + Chr$(10)
    ' use utility routines to retieve help text from properties
    TXT_Result.Text = Hwnd2CtlName(hwndAtMouse) + " ... hwndAtMouse = " + Hex$(hwndAtMouse)
    Exit Sub
    '' Use the following alternate technique to place text
    Select Case hwndAtMouse
        Case Me.hWnd
            Exit Sub    ' do nothing
        Case BTN_StMouseStart.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_STMouseStart."
        Case BTN_STMouseStop.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_STMouseStop."
        Case BTN_Exit.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_Exit."
        Case TXT_KeyString.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control TXT_KeyString."
        Case TXT_SearchString.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control TXT_SearchString."
        Case TXT_Result.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control TXT_Result."
        Case Picture1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Picture1."
        Case Check1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Check1."
        Case Check2.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Check2."
        Case Frame1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Frame1."
        Case Option1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option1."
        Case Option2.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option2."
        Case Option3.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option3."
        Case Combo1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Combo1."
        Case Else

        End Select

End Sub